00100	COMMENT   -  GEOMED MAIN EXECUTION;
00200	BEGIN "MAINEX"
00300		EXTERNAL SIMPLE PROCEDURE INITIA;
00400		EXTERNAL SIMPLE PROCEDURE GEOMED;
00500		INITIA;
00600		GEOMED;
00700	END "MAINEX";